home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / findds.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  583 b   |  19 lines
  1. 1  REM this finds the value of BASIC/BASICA'S data segment. useful for determining
  2. 2  REM absolute location of a variable, file buffer, etc.
  3. 3  REM
  4. 4  REM Mark Minasi 5400 Wilson Blvd, Arl. VA 22205 (703) 276-0170
  5. 5  REM
  6. 6  REM as usual, don't use for profit...
  7. 7  REM
  8. 10  DEF SEG
  9. 20  X=0:SUBRT=0:I=0:J=0:A%=0
  10. 30  REM finds the data segment
  11. 40  DIM CODE(40)
  12. 50  SUBRT=VARPTR(CODE(0))
  13. 60  X=(SUBRT+16) MOD 16
  14. 70  SUBRT=SUBRT+16-X
  15. 80  FOR I=0 TO 13:READ J:POKE SUBRT+I,J:NEXT
  16. 90  DATA &h55,&h8c,&hd8,&h89,&he5,&h8b,&h7e,&h06,&h89,&h05,&h5d,&hca,&h02,&h00
  17. 100  CALL SUBRT(A%) 'give back ds
  18. 110  PRINT "data segment=";HEX$(A%)
  19.